home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 41 / PC Gamer IT CD 41 2-2.iso / utility / CISEI / 8BIT / FINCHA.DXR / 00008_TastiDOWN-UP.ls < prev    next >
Encoding:
Text File  |  1998-10-06  |  1.5 KB  |  55 lines
  1. property NumCanale, nonpremuto, premuto, evidente, CursorUP, CursorDOWN
  2.  
  3. on birth me, c, np, pr, ev, cu, cd
  4.   set the NumCanale of me to c
  5.   set the nonpremuto of me to np
  6.   set the premuto of me to pr
  7.   set the evidente of me to ev
  8.   set the CursorUP of me to cu
  9.   set the CursorDOWN of me to cd
  10.   return me
  11. end
  12.  
  13. on abbassa me
  14.   global NumTasto, LastNumTasto
  15.   set LastNumTasto to NumTasto
  16.   set the cursor of sprite the NumCanale of me to the CursorDOWN of me
  17.   set the puppet of sprite the NumCanale of me to 1
  18.   set the member of sprite the NumCanale of me to member the premuto of me
  19.   updateStage()
  20. end
  21.  
  22. on alza me
  23.   global NumTasto, LastNumTasto
  24.   set the puppet of sprite the NumCanale of me to 0
  25.   updateStage()
  26.   if NumTasto = LastNumTasto then
  27.     set the cursor of sprite the NumCanale of me to the CursorUP of me
  28.     tastimain()
  29.     exit
  30.   end if
  31.   set LastNumTasto to 0
  32. end
  33.  
  34. on evidenzia me
  35.   global NumTasto, LastEvidente, flag
  36.   set flag to 1
  37.   set the cursor of sprite the NumCanale of me to the CursorUP of me
  38.   set the puppet of sprite the NumCanale of me to 1
  39.   set the member of sprite the NumCanale of me to member the evidente of me
  40.   set LastEvidente to NumTasto
  41.   updateStage()
  42. end
  43.  
  44. on disevidenzia me
  45.   global flag
  46.   if flag = 1 then
  47.     set a to the name of the member of sprite the NumCanale of me
  48.     set b to char 1 to 3 of a
  49.     set the member of sprite the NumCanale of me to member b
  50.     set the puppet of sprite the NumCanale of me to 0
  51.     set the cursor of sprite the NumCanale of me to 0
  52.     updateStage()
  53.   end if
  54. end
  55.